home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 36
/
036.d81
/
line locker.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
80 lines
0 rem"[160][160][212][200][201][211][160][208][210][207][199][210][193][205][160][196][201][211][208][204][193][217][211][160][193][160][204][207][195][203][197][196][160][204][201][206][197][160][160][160]"
2 gosub60100:clr:poke53280,2:print"[147]"
3 d1$="....................[211][195][210][207][204][204][201][206][199]......."
4 d2$="...................................."
7 poke251,2:rem set up color of text, poke with 0-8
9 fori=828to840:readx:pokei,x:next:fori= 841to 861:readx:pokei,x:next
10 data120,169,73,141,20,3,169,3,141,21,3,88,96,160
11 data0,185,7,8,153,0,4,165,251,153,0,216,200,192,40,208,240,76,49,234
20 sys828:print"[147] [212]he first line of the screen is"
22 print"locked which will prevent scrolling"
24 print"from erasing it. [194]ut, since this is"
25 print"wedged in the [201][210][209] vector, it flickers"
26 print"quite a bit ..."
27 print" [208]ress [211][208][193][195][197] to scroll dummy text.":poke198,.
28 geta$:ifa$<>" "then28
30 print"[147]"
32 fora=1to80:printd1$d2$;:next
34 print"[147] [193]nother way to do this is to use"
36 print"the 64's built-in scroll routines. [201]t"
38 print"does the same thing, and allows you to"
40 print"leave any number of lines at the top"
42 print"or bottom of the screen. [201]n order to"
44 print"use them, you'll need to disable"
46 print"[198][193][211][212][204][207][193][196] (if it's installed) and copy"
48 print"[194][193][211][201][195] and [203][197][210][206][193][204] [210][207][205] to the [210][193][205] that"
50 print"lies beneath each. [212]hen, when you [208][207][203][197]"
52 print"the number of lines you want to stay"
54 print"fixed at the top of the screen, plus 1,"
56 print"in address 59639 they won't scroll --"
58 print"and there's no flicker, either!"
60 print" [208]ress [211][208][193][195][197] to scroll dummy text.":poke198,.
62 geta$:ifa$<>" "then62
64 sys65418:print"[147]":gosub1000
65 print"[147] [212]histextwillnotscrolloffthescreen."
66 fora=1to80:printd1$d2$;:next:print""
68 poke1,55:print" [212]o set things back to normal,"
70 print" [208][207][203][197] 1,55. [198]or a description of how"
72 print" to use the [210][207][205] routines, see lines"
74 print" 1000 - 1110 of this program."
76 print"[208]ress [193][146] to see demo again; [210][197][212][213][210][206][146] to"
78 print"quit."
80 a=peek(197):ifa=10then20
82 ifa=1then60000
84 goto80
999 stop
1000 poke770,131:poke771,164:rem disable fastload
1010 poke88,.:poke89,192 :rem copies
1020 poke90,.:poke91,192 :rem basic to
1030 poke781,33:poke782,.:rem ram
1040 sys41964:rem actually does the copying of bytes
1050 poke88,254:poke89,255:rem copies
1060 poke90,254:poke91,255:rem kernal
1070 poke781,33:poke782,. :rem to ram
1080 sys41964:rem actually does the copying of bytes
1090 poke59639,7:rem don't scroll the ^ top 8 lines
1091 rem the 7 ^ means 7 + 1 (8) lines will not scroll on top ...
1100 poke1,53:rem switch in the new scroll routine
1110 return
60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60010 print"[147]";:ifer<>63thenend
60020 load"hello connect",8
60099 stop
60100 sys65418:poke53280,10:poke53281,1
60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 fora=1to23:print"[221]"spc(38)"[221]";:next
60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
60140 fora=217to242:pokea,peek(a)or128:next
60150 print"[144] [204][207][193][196][211][212][193][210] [208]resents:"
60155 print" [146]"
60160 print" [204]ine [204]ocker [152] [146]"
60165 print" [152] [146]"
60170 print" [194]y [196]onald [200]. [199]raham [152] [146]"
60175 print" [152] [146]"
60180 print" ([195])opyright 1987 [152] [146]"
60185 print" [152] [146]"
60187 print" [152] [146]"
60190 print" [208]ress [211][208][193][195][197] to continue.":poke198,.
60193 geta$:ifa$<>" "then60193
60197 return